home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / CHANGE DEMO 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  598b  |  14 lines
  1. 0  HOME 
  2. 10  PRINT  CHR$(4)"BLOAD CHANGE"
  3. 20 CHANGE = 833
  4. 30  POKE 34,0: VTAB 1
  5. 40  LIST  -100
  6. 42  VTAB 20: PRINT "L$ = ";L$
  7. 45  VTAB 22: POKE 34,21: HOME 
  8. 50  PRINT "WHAT FUNCTION ? ";: GOSUB 60000
  9. 60  CALL CHANGE,100
  10. 70  POKE 34,14: POKE 35,21: HOME : POKE 35,24: GOTO 30
  11. 100 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  12. 60000  CALL 54572
  13. 60010  FOR Z = 512 TO 751: IF  PEEK(Z) < >0  THEN  NEXT 
  14. 60020 L$ = "": POKE  PEEK(131) + PEEK(132) *256 +1,0: POKE  PEEK(131) +256 * PEEK(132) +2,2: POKE  PEEK(131) +256 * PEEK(132),Z -512:L$ =  MID$ (L$,1): RETURN